home *** CD-ROM | disk | FTP | other *** search
/ MPEG Archives / MPEG Archives.iso / mpeg / files / u16.pas < prev    next >
Pascal/Delphi Source File  |  1996-12-28  |  3KB  |  141 lines
  1. unit U16;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, FileCtrl, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     flb1: TFileListBox;
  12.     Timer1: TTimer;
  13.     Panel2: TPanel;
  14.     Image2: TImage;
  15.     Label2: TLabel;
  16.     Label1: TLabel;
  17.     Label3: TLabel;
  18.     Panel1: TPanel;
  19.     Image1: TImage;
  20.     DLB: TDirectoryListBox;
  21.     flb2: TFileListBox;
  22.     procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  23.       Y: Integer);
  24.     procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  25.       Y: Integer);
  26.     procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  27.       Y: Integer);
  28.     procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  29.       Y: Integer);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure Label2Click(Sender: TObject);
  32.     procedure Timer1Timer(Sender: TObject);
  33.     procedure Label3Click(Sender: TObject);
  34.     procedure Label1Click(Sender: TObject);
  35.     procedure DLBChange(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  41.  
  42. var
  43.   Form1: TForm1;
  44.   i,J,p:integer;
  45.   down:Boolean;
  46.   S:sTRING;
  47.   CMD:ARRAY[0..255] OF CHAR;
  48.  
  49. implementation
  50.  
  51. {$R *.DFM}
  52.  
  53. procedure TForm1.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  54.   Y: Integer);
  55. begin
  56. label3.font.color:=cllime;
  57. end;
  58.  
  59. procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  60.   Y: Integer);
  61. begin
  62. label1.font.color:=cllime;
  63. end;
  64.  
  65. procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  66.   Y: Integer);
  67. begin
  68. label2.font.color:=cllime;
  69. end;
  70.  
  71. procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  72.   Y: Integer);
  73. begin
  74. label1.font.color:=clgray;
  75. label2.font.color:=clgray;
  76. label3.font.color:=clgray;
  77. end;
  78.  
  79. procedure TForm1.FormCreate(Sender: TObject);
  80. begin
  81. p:=5;
  82. flb1.directory:='\a';
  83. flb2.directory:='\mpeg\li';
  84. DOWN:=TRUE;
  85. i:=-p;
  86.  
  87. end;
  88.  
  89. procedure TForm1.Label2Click(Sender: TObject);
  90. begin
  91. close;
  92. end;
  93.  
  94. procedure TForm1.Timer1Timer(Sender: TObject);
  95. begin
  96. IF DOWN THEN
  97. BEGIN
  98. i:=i+p;
  99. image1.picture.loadfromfile('\a\'+flb1.items[I]);
  100. if i=720-p then i:=-p;
  101. END;
  102.  
  103. end;
  104.  
  105. procedure TForm1.Label3Click(Sender: TObject);
  106. begin
  107. IF LABEL3.CAPTION='VIEW' THEN
  108. BEGIN
  109.  
  110. FLB2.VISIBLE:=TRUE;
  111. DLB.VISIBLE:=TRUE;
  112. LABEL3.CAPTION:='HIDE';
  113. END
  114. ELSE
  115. BEGIN
  116.  
  117. FLB2.VISIBLE:=FALSE;
  118. DLB.VISIBLE:=FALSE;
  119. LABEL3.CAPTION:='VIEW';
  120. END
  121.  
  122. end;
  123.  
  124. procedure TForm1.Label1Click(Sender: TObject);
  125. begin
  126. fOR J:=0 TO FLB2.ITEMS.COUNT-1 DO
  127. IF FLB2.SELECTED[J] THEN
  128. BEGIN
  129. STRPCOPY(CMD,'\MPEG\DMPEG -l0 '+DLB.DIRECTORY+'\'+FLB2.ITEMS[J]);
  130. WINEXEC(CMD,sw_SHOWNORMAL);
  131. END;
  132.  
  133. end;
  134.  
  135. procedure TForm1.DLBChange(Sender: TObject);
  136. begin
  137. FLB2.DIRECTORY:=DLB.DIRECTORY;
  138. end;
  139.  
  140. end.
  141.